00010	;  THIS PLOTS ON CALCOMP (OR TO XGP) STUFF FROM MP.DMP(DO DO.DO]
00100		TITLE PLOTIT ; ********* MAY 9,75 *********
00300		EXTERNAL PLOT,PLOTS
00400	
00500		CH3←15	;WAS ←13  4/18/75 *******
00600	
01200	BEG:	JSA 16,PLOTS
01300		JUMP 2
01370	
01500		OUTSTR[ASCIZ/FILE NAME (DEFAULT=PLT)  /]
01600		INCHWL 1
01700		CAIN	1,15		; LOOK FOR CR.
01800		JRST 	DFAULT
01900		SETZM DIR
02000		SKIPA 2,[POINT 6,DIR]
02100	GOT:	INCHWL	1
02200		CAIGE	1,60		; CHECKS FOR GOOD CHARS.
02300		JRST	DONE
02412		SUBI	1,40
02418		IDPB	1,2
02424		JRST	GOT
02490	
02600	DFAULT:	MOVE 1,[SIXBIT/PLT/]
02700		MOVEM 1,DIR
03100	DONE:	INIT CH3,17
03200		SIXBIT/DSK/
03300		0
03400		0
03600		MOVE 0,[SIXBIT/DMD/]
03700		MOVEM 0,DIR+1
03900		SETZM DIR+2
04000		SETZM DIR+3
04100		LOOKUP CH3,DIR
04200		HALT
04300		SETZM DIR+1
04400	
04700	
04800	INP:	HRRZI 0,M
04900		SUBI 0,1
05000		MOVEM 0,COM
05100		MOVNI 0,=128
05200		HRLM 0,COM
05300		INPUT CH3,COM
05400		STATZ CH3,740000
05500		0
05600		MOVEI 6,1
05700	LUP:	MOVEI 5,M
05800		ADDI  5,(6)
05900		MOVE 2,(5)	; UNPAC ROUTINE
05933		LSHC 2,-10	; 14 BITS, 14 BITS, 8 BITS
05966		ASH 3,-34
05999		MOVEM 3,K 
06065		LSHC 2,-16
06098		ASH 3,-26
06131		MOVEM 3,J 
06197		LSHC 2,-16
06230		ASH 3,-26
06263		MOVEM 3,I
06281	
06300		JSA 16,PLOT
06400		JUMP I
06500		JUMP J
06600		JUMP K
06700		CAMGE 6,M
06800		AOJA 6,LUP
06900	
07000		MOVE 2,M
07100		CAIN 2,=127
07200		JRST INP
07300		EXIT
07400	COM:	OCT 0,0
07500	BLKNUM:	0
07600	
07700	
07800	I:	0
07900	J:	0
08000	K:	0
08100	M:	BLOCK =128
08200	
08700	DIR:	BLOCK 4
08800	
10600		END BEG